home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / SPX30.ZIP / SPX_INT.ZIP / SPX_SFN.INT < prev    next >
Encoding:
Text File  |  1994-06-13  |  1.1 KB  |  45 lines
  1. Unit spx_sfn;
  2.  
  3. Interface
  4.  
  5. {$X+,O+ }
  6. { SPX Library Version 3.0  Copyright 1994 Scott D. Ramsay }
  7.  
  8. Uses spx_vga,spx_dos,spx_vsp,spx_fnc,spx_lib;
  9.  
  10. const
  11.   SFN_NOERROR     = 0;
  12.   SFN_ERRORNOFILE = -1;
  13.   SFN_READERROR   = -2;
  14.   SFN_NOMEMORY    = -3;
  15.  
  16. type
  17.   psfn_type = ^sfn_type;
  18.   sfn_type = record
  19.                w,h  : integer;  { max width and heigth of font }
  20.                data : pointer;  { font data }
  21.              end;
  22.  
  23. var
  24.   SFNx       : integer;   { current X position }
  25.   currentSFN : psfn_type;
  26.   sfnWidth   : array[0..255] of byte;
  27.   sfnHeight  : array[0..255] of byte;
  28.  
  29. procedure FreeSfn(var font:sfn_type);
  30. function LoadSfn(fn:string;var font:sfn_type):integer;
  31. function LoadSfnLib(lib:pSpxLib;fn:string;var font:sfn_type):integer;
  32.  
  33. procedure SetSFN(var font:sfn_type);
  34. procedure SetSFNdefault;
  35.  
  36. function stlen(s:string):word;
  37.  
  38. procedure printchar(x,y:integer;h:char);
  39. procedure printletter(x,y:integer;s:string);
  40.  
  41. procedure putchar(x,y:integer;h:char;c:byte);
  42. procedure putletter(x,y:integer;c:byte;s:string);
  43. procedure drawletter(x,y:integer;c,c2:byte;s:string);
  44.  
  45.